
socnetwork<-function(x) 
{ 
prox<-read.csv(file = "C:/../matriz_proximidade.csv", header=T, sep=";") # matriz simtrica com indices de proximidade social (por ex. Jaccard) entre os indivduos. 
matx.prox<-as.matrix(prox)
x<-matx.prox[, 1]
y<-matx.prox[, i]  #onde "i"  a indexacao do macho-alfa na matx.prox, para padronizar a partir de qual individuo sero plotadas as distancias.
plot(x, y, type = "n", xlab = "", ylab = "", asp = 1,axes = FALSE,
     main = "redes de interaes sobre a proximidade social")
text(x, y, rownames(matx.prox), cex = 1.0)
interacoes<-read.csv(file = "C:/../interacoes.csv", header=T, sep=";") # tabela com trs colunas, col1 e col2 com os indivduos interagindo e col3 com a frequencia de interao padronizada par o argumento ldw. 
matx.interacoes<-as.matrix(interacoes)
segments(x0=x[matx.intercoes[,1]],y0=y[matx.interacoes[,1]],x1=x[matx.interacoes[,2]],y1=y[matx.interacoes[,2]], lwd=matx.interacoes[,3])
}

